R Notebook

This is my import procedure.

library(tidyverse)

package ‘tidyverse’ was built under R version 4.0.3Registered S3 methods overwritten by 'dbplyr':
  method         from
  print.tbl_lazy     
  print.tbl_sql      
── Attaching packages ───────────────────────────────────────────────────────────────── tidyverse 1.3.0 ──
✓ tibble  3.1.0     ✓ dplyr   1.0.5
✓ tidyr   1.1.3     ✓ stringr 1.4.0
✓ readr   1.4.0     ✓ forcats 0.5.1
✓ purrr   0.3.4     
package ‘tibble’ was built under R version 4.0.3package ‘tidyr’ was built under R version 4.0.3package ‘readr’ was built under R version 4.0.3package ‘purrr’ was built under R version 4.0.3package ‘dplyr’ was built under R version 4.0.3package ‘stringr’ was built under R version 4.0.3package ‘forcats’ was built under R version 4.0.3── Conflicts ──────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
x dplyr::filter() masks plotly::filter(), stats::filter()
x dplyr::lag()    masks stats::lag()

library(ggplot2)

package ‘ggplot2’ was built under R version 4.0.3

library(plotly)

package ‘plotly’ was built under R version 4.0.3Registered S3 method overwritten by 'data.table':
  method           from
  print.data.table     
Registered S3 method overwritten by 'htmlwidgets':
  method           from         
  print.htmlwidget tools:rstudio

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

p <- ggplot(data = diamonds, aes(x = cut, fill = clarity)) +
            geom_bar(position = "dodge")
ggplotly(p)

NA

#dplyr = filter
library(dplyr)
library(ggplot2)

ad_treatment %>%
 filter(age >= 80L & age <= 85L) %>%
 ggplot() +
 aes(x = drug_treatment, y = mmse, colour = health_status) +
 geom_boxplot(fill = "#0c4c8a") +
 scale_color_hue() +
 theme_minimal()